# banco_familia %>%
# # filter(candidato %in% c("Anthony Garotinho", "Sérgio Mendes", "Arnaldo Vianna", "Carlos Campista", "Rosinha Garotinho", "Rafael Diniz", "Wladimir Garotinho")) %>%
# ggplot(aes(x=as_factor(ano_eleitoral), y=percent_votos, col = apoiador, group = line_x))+
# geom_line(stat = "identity", color = "#808080", size = 1.2, alpha = 0.7)+
# geom_point(size= 1.5, color = "#808080", alpha = 0.7)+
# geom_label_repel(aes(label = candidato),
# size = 3,
# box.padding = 0.35,
# point.padding = 0.5)+
# scale_y_continuous(labels=function(x) paste0(x,"%"))+
# #scale_x_continuous(breaks = c(2004,2008,2012,2016,2020))+
# theme_fivethirtyeight()+
# ylab("Votos")+
# labs(title = "Histórico político de Campos dos Goytacazes", x = NULL, col = "Grupo famíliar")+
# theme(axis.text.y = element_text(size = 11),
# axis.title.y = element_text(size = 11),
# axis.title.x = element_text(size = 10),
# axis.text.x = element_text(size = 11),
# legend.text = element_text(size = 14),
# title = element_text(size = 10),
# panel.background = element_rect(fill = "white", colour = "white", color = "white"),
# plot.background = element_rect(fill = "white", colour = "white", color = "white"),
# legend.background=element_rect(fill="white"),
# legend.key = element_rect(fill = "white", color = "white"),
# strip.background=element_rect(fill="white", colour="white"),
# panel.grid.major.x = element_line(colour= "#eceff2"),
# panel.grid.major.y = element_line(colour= "#eceff2"))
#knitr::write_bib(c(“dplyr”, “readxl”, “tidyverse”), file= “bib.bib”)